-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x4000 (can't delete)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 6
-- first background id: 3264
-- card count: 6
-- first card id: 3715
-- list block id: 11374
-- print block id: 5380
-- font table block id: 0
-- style table block id: 0
-- free block count: 13
-- free size: 9440 bytes
-- total size: 65536 bytes
-- stack block size: 4096 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  global configuration, teacher, report
  set userlevel to 3
  if the short name of this stack is "Classroom Administrator" then
    put NewMenu("Configuration","Grading Curve", "Seating Chart", "Set Up Stacks") into configuration
  end if
  put NewMenu("Teacher","Add Assignment","Add Student", "Delete Student") into teacher
  put NewMenu("Report","Attendance","Student Profile", "Grades", "------", "Print Card", "Print Missing Assignments") into report
end openStack

on closeStack  --  delete the menus we've created using
  --the globals saved in openStack
  global configuration, teacher, report
  put DeleteMenu(configuration) into configuration --  clearing global
  --  for safety
  put DeleteMenu(teacher) into teacher
  put DeleteMenu(report) into report
end closeStack

on idle
  global configuration, teacher, report,lastTick
  if (the ticks-lastTick)>120 then  --  gives better
    -- performance than on every iteration
    put the ticks into lastTick
    ShowMenu(configuration)
    ShowMenu(teacher)
    ShowMenu(report)
  end if
  pass idle
end idle


on doMenu which
  global configuration, teacher,report

  If which is "Add Student" then
    go to first card
    send mouseUp to button "Add a Student"
  else if which is "Delete Student" then
    go to first card
    send mouseUp to button "Delete a Student"
  else if which is "Add Assignment" then
    go to first card
    send mouseUp to button "Add Assignment"
  else if which is "Grading Curve" then
    go to card "configuration"
    exit domenu
  else if which is "Seating Chart" then
    go to card "seating chart"
    exit domenu
  else if which is "Set Up Stacks" then
    go to card "configuration"
    send mouseUp to button "Configure"
    exit doMenu
  else if which is "Student Profile" then
    send mouseUp to button "Student Profile"
    exit doMenu
  else if which is "Attendance" then
    send mouseUp to button "Attendance"
    exit doMenu
  else if which is "Grades" then
    send mouseUp to button "Grades"
    exit doMenu
  else if which is "Print this card" then
    open printing
    print this card
    close printing
    exit doMenu
  else if which is "Print missing assignments" then
    send mouseUp to button "Print missing assignments"
  else pass domenu
end doMenu